home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
editor
/
par.zip
/
EXAMPL13.POM
< prev
next >
Wrap
Text File
|
1997-06-27
|
722b
|
20 lines
;
; Output the line only if we're processing. For the purposes of this demon-
; stration, we'll put two X's at the end of each line so that when you look
; at it with our file viewer, you can see how each line has been padded to
; 80 characters.
;
BEGIN process = "Y"
PAD $FLINE "R" " " "78"
PAD $FLINE "R" "X" "80"
OUT |{$FLINE}
END
;
; See if we've reached the dashed line, yet. Until a variable is set
; (in this case, the variable is named "process"), it is null ("").
; We do the test here at the end of the POM file, instead of at the
; beginning, since we don't include the dashed line itself as a line
; to be processed.
;
IF $FLINE[1 7] = "-------" THEN process = "Y"